home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / connec1r / form6.frm < prev    next >
Text File  |  1999-07-10  |  4KB  |  159 lines
  1. VERSION 5.00
  2. Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "SHDOCVW.DLL"
  3. Begin VB.Form Form6 
  4.    Caption         =   "Web Browser"
  5.    ClientHeight    =   7470
  6.    ClientLeft      =   735
  7.    ClientTop       =   795
  8.    ClientWidth     =   10230
  9.    LinkTopic       =   "Form6"
  10.    MaxButton       =   0   'False
  11.    ScaleHeight     =   7470
  12.    ScaleWidth      =   10230
  13.    Begin VB.CommandButton Command7 
  14.       Caption         =   "S&earch"
  15.       Height          =   975
  16.       Left            =   5520
  17.       TabIndex        =   9
  18.       Top             =   120
  19.       Width           =   975
  20.    End
  21.    Begin VB.CommandButton Command6 
  22.       Caption         =   "&Stop"
  23.       Height          =   975
  24.       Left            =   4440
  25.       TabIndex        =   8
  26.       Top             =   120
  27.       Width           =   975
  28.    End
  29.    Begin VB.CommandButton Command5 
  30.       Caption         =   "&Home"
  31.       Height          =   975
  32.       Left            =   3360
  33.       TabIndex        =   7
  34.       Top             =   120
  35.       Width           =   975
  36.    End
  37.    Begin VB.CommandButton Command4 
  38.       Caption         =   "&Refresh"
  39.       Height          =   975
  40.       Left            =   2280
  41.       TabIndex        =   6
  42.       Top             =   120
  43.       Width           =   975
  44.    End
  45.    Begin VB.CommandButton Command3 
  46.       Caption         =   "&Forward"
  47.       Height          =   975
  48.       Left            =   1200
  49.       TabIndex        =   5
  50.       Top             =   120
  51.       Width           =   975
  52.    End
  53.    Begin VB.CommandButton Command2 
  54.       Caption         =   "&Back"
  55.       Height          =   975
  56.       Left            =   120
  57.       TabIndex        =   4
  58.       Top             =   120
  59.       Width           =   975
  60.    End
  61.    Begin SHDocVwCtl.WebBrowser WebBrowser1 
  62.       Height          =   5175
  63.       Left            =   120
  64.       TabIndex        =   2
  65.       Top             =   1680
  66.       Width           =   9975
  67.       ExtentX         =   17595
  68.       ExtentY         =   9128
  69.       ViewMode        =   0
  70.       Offline         =   0
  71.       Silent          =   0
  72.       RegisterAsBrowser=   0
  73.       RegisterAsDropTarget=   1
  74.       AutoArrange     =   0   'False
  75.       NoClientEdge    =   0   'False
  76.       AlignLeft       =   0   'False
  77.       ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  78.       Location        =   ""
  79.    End
  80.    Begin VB.TextBox Text1 
  81.       Height          =   285
  82.       Left            =   840
  83.       TabIndex        =   1
  84.       Text            =   "http://www.angelfire.com/me/Shaun101"
  85.       Top             =   1200
  86.       Width           =   9255
  87.    End
  88.    Begin VB.CommandButton Command1 
  89.       Caption         =   "&Go"
  90.       Height          =   255
  91.       Left            =   120
  92.       TabIndex        =   0
  93.       Top             =   1200
  94.       Width           =   615
  95.    End
  96.    Begin VB.Line Line1 
  97.       X1              =   0
  98.       X2              =   10200
  99.       Y1              =   1560
  100.       Y2              =   1560
  101.    End
  102.    Begin VB.Label Label1 
  103.       Height          =   255
  104.       Left            =   120
  105.       TabIndex        =   3
  106.       Top             =   7080
  107.       Width           =   9975
  108.    End
  109. End
  110. Attribute VB_Name = "Form6"
  111. Attribute VB_GlobalNameSpace = False
  112. Attribute VB_Creatable = False
  113. Attribute VB_PredeclaredId = True
  114. Attribute VB_Exposed = False
  115. Private Sub Command1_Click()
  116. WebBrowser1.Navigate Text1
  117. End Sub
  118.  
  119. Private Sub Command2_Click()
  120. WebBrowser1.GoBack
  121. End Sub
  122.  
  123. Private Sub Command3_Click()
  124. WebBrowser1.GoForward
  125. End Sub
  126.  
  127. Private Sub Command4_Click()
  128. WebBrowser1.Refresh
  129. End Sub
  130.  
  131. Private Sub Command5_Click()
  132. WebBrowser1.GoHome
  133. End Sub
  134.  
  135. Private Sub Command6_Click()
  136. WebBrowser1.Stop
  137. End Sub
  138.  
  139. Private Sub Command7_Click()
  140. WebBrowser1.GoSearch
  141. End Sub
  142.  
  143. Private Sub Form_Load()
  144. WebBrowser1.Navigate Text1
  145. End Sub
  146.  
  147. Private Sub Text1_Change()
  148. Text1.SetFocus
  149. End Sub
  150.  
  151. Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
  152. If WebBrowser1.Busy Then
  153.     Label1.Caption = "You Are Now Connecting to " + Text1.Text
  154.     
  155.     Else
  156.     Label1.Caption = ""
  157.     End If
  158. End Sub
  159.